﻿
Imports System.IO
Imports System.Text.RegularExpressions
Public Class FrmMain

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        Dim watcher = New FileSystemWatcher()
        watcher.Path = "C:\Program Files (x86)\GameforgeLive\Games\FRA_fra\AION\Download\"
        watcher.Filter = "Chat.log"
        watcher.NotifyFilter = NotifyFilters.LastWrite
        ' Add event handlers. 
        AddHandler watcher.Changed, AddressOf OnChanged

        ' Begin watching.
        watcher.EnableRaisingEvents = True

    End Sub
    ' Define the event handlers. 
    Private Shared Sub OnChanged(ByVal source As Object, ByVal e As FileSystemEventArgs)
        ' Specify what is done when a file is changed, created, or deleted.

    End Sub
    'Biggest hit
    'number critical/crical rate
    'number proc
    'nombre kill
    'resist 
    'esquive
    'blocage
    'Silence
    'mezz
    'stunt
    'para

    'View Screenshot
    '2014.02.09 16:36:30 : Vous avez esquivé l'attaque de Grid. 
    '2014.02.09 16:36:32 : Vous avez résisté à Augmentation du poids des ailes de Magnair. 
    '2014.02.09 16:36:28 : Vous avez paré l'attaque de Lifras. 
    '2014.02.09 16:36:26 : Vous avez bloqué l'attaque de Grid.

    'Combat/Kills
    '2014.02.09 13:11:25 : Vous avez battu Misutshi.
    '2014.02.08 23:39:47 : Cedrome a battu Itzswarz. 


    '2014.02.09 15:37:03 : Oster est réduit au silence car Bubon a utilisé Projectile du silence VII.
    '2014.02.09 15:37:12 : Kyiuu est réduit au silence car Gllocul a utilisé Gel de l'âme III. 

    'GodStone
    '2014.02.09 22:16:44 : Effet magique de dégâts de terre a été activé. 
    '2014.02.09 22:18:49 : Effet de Promesse du vent I a été activé. 
    '2014.02.08 23:21:22 : Commandant du Dredgion a subi 1 155 points de dégâts à cause de Effet magique de dégâts de terre. 


    '2014.02.09 16:11:12 : Porte de la forteresse est attaquée. 

    '2014.02.08 23:21:23 : Effet magique de dégâts de terre a été activé. 
    '2014.02.09 16:42:19 : Tour de garde de Krotan a subi 6 973 points de dégâts à cause de Effet magique de dégâts de l'eau. 
    '2014.02.09 16:42:19 : Effet magique de dégâts de l'eau a été activé.

    '2014.02.08 23:21:23 : L'attaque de Fuxia a été fatale à Zaol.
    '2014.02.09 13:50:43 : Vous avez battu Pierrepgniii. 


    '2014.02.09 13:48:41 : Vous avez absorbé l'attaque de Daru tenace grâce à un bouclier défensif. 
    '2014.02.09 20:49:42 : Hypérion a résisté à Eclate-sable IV de Simao. 
    '2014.02.09 13:32:40 : Pouletteakaradoc a résisté à Explosion de puissance I de Neavras. 
    '2014.02.09 19:30:54 : L'attaque a été absorbée par le bouclier défensif qui recouvre Fendi. 
    '2014.02.09 19:30:54 : Vous avez infligé 0 points de dégâts à Fendi en utilisant Eclat de givre IV.
    '2014.02.09 21:11:50 : Vous avez résisté à Erosion VI de Uorbaaa. 
    '2014.02.09 16:42:19 : Vous avez esquivé Rayon éthéré de Tour de garde de Krotan.
    '2014.02.09 21:20:42 : Commandant du Dredgion a esquivé Tir mortel V de Wildbore.
    '2014.02.09 20:07:45 : Vous avez bloqué l'attaque de Uhgfblop. 
    '2014.02.09 16:42:19 : Vous avez paré l'attaque de Goinn. 
    '2014.02.09 16:42:19 : Vous avez subi 501 points de dégâts de la part de : Goinn. 
    '2014.02.09 21:20:42 : Commandant du Dredgion a subi 584 points de dégâts à cause de Effet de Bénédiction du vent VII. 
    '2014.02.09 16:42:20 : Vous avez bloqué l'attaque de Modir. 

    '2014.02.09 20:08:02 : [3.Recherche de groupe] [charname:Diabolokus;1.0000 0.6941 0.6941]: Vends [item:188600199;ver4;;;;]x9 11M/u me mp 

    '2014.02.09 20:58:35 : Vous avez rejoint la cohorte.
    '2014.02.09 20:15:06 : Tefeirih a rejoint la cohorte.
    '2014.02.09 20:56:29 : Ptitelapine a quitté la cohorte. 
    '2014.02.09 15:17:54 : Vous avez rejoint le groupe. 
    '2014.02.09 15:17:54 : Dyspo a rejoint votre groupe. 
    '2014.02.09 19:33:55 : Vous avez quitté le groupe. 

    '2014.02.08 23:26:21 : Vous avez gagné 18 941 Kinah.
    '2014.02.08 23:22:30 : Vous avez gagné 2 Points abyssaux.

    '2014.02.08 23:22:30 : Lewy a infligé 258 points de dégâts à Commandant du Dredgion.
    '2014.02.08 23:22:30 : Vous avez infligé 537 points de dégâts

    '2014.02.08 23:51:43 : Kifouine saigne et a subi 246 points de dégâts après que vous ayez utilisé Vent aiguisé VI.
    '2014.02.08 23:22:30 : Yamiguchi saigne et a subi 26 points de dégâts après que vous ayez utilisé Pénétration de l'artère vitale I. 

    '2014.02.08 23:22:30 : Vous récupérez 455 PV car Serviteur soigneur a utilisé Invocation : Energie de soins V sur vous. 
    '2014.02.08 23:22:30 : Coup critique !Radagat a infligé 2 364 points de dégâts à Commandant du Dredgion en utilisant Coup provocant énergique V.
    '2014.02.09 13:32:55 : Coup critique !Vous avez infligé 1 940 points de dégâts à Pouletteakaradoc en utilisant Gel de l'âme III. 

    '2014.02.09 22:17:08 : Deimon a récupéré 4 772 PV car vous avez utilisé Eclat de récupération VI. 
    '2014.02.08 23:22:30 : Vous avez récupéré 4 167 PV en utilisant Eclat de récupération VI. 

    '2014.02.08 23:22:30 : Plaarex a infligé 1 240 points de dégâts
    '2014.02.08 23:22:30 : Plaarex a infligé 1 010 points de dégâts à Commandant du Dredgion en utilisant Onde sismique V.
    '2014.02.09 16:11:12 : Archer vétéran saigne et a subi 90 points de dégâts après que vous ayez utilisé Flèche enfoncée.
    '2014.02.09 20:48:27 : Ondine est empoisonnée et a subi 105 points de dégâts après que vous ayez utilisé Coupure empoisonnée. 


    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Dim DateEvent As Date
        Dim TmpStr As String
        Dim c As Process = Process.GetCurrentProcess()
        Dim player1 As String
        Dim player2 As String
        Dim ValeurDegat As String
        Dim TmpPos As Integer
        Dim result() As String
        Dim test As String
        Dim stringSeparators() As String = {","}


        'TmpStr = "2014.02.09 20:49:43 : Takiiro a infligé 331 points de dégâts à Hypérion."
        TmpStr = "2014.02.08 23:22:30 : Yamiguchi saigne et a subi 26 points de dégâts après que vous ayez utilisé Pénétration de l'artère vitale I"
        'TmpStr = "2014.02.09 20:49:43 : Plaarex a infligé 1 010 points de dégâts à Commandant du Dredgion en utilisant Onde sismique V."
        DateEvent = Mid(TmpStr, 1, 19)

        If InStr(TmpStr, "points de dégâts après que vous ayez utilisé ") <> 0 Then
            test = TmpStr.Replace(" : ", ";").Replace(" saigne et a subi ", ";").Replace(" points de dégâts après que vous ayez utilisé ", ";").Replace(" en utilisant ", ";")
            Debug.Print(test)
            result = test.Split(stringSeparators, _
                  StringSplitOptions.RemoveEmptyEntries)
        End If

        If InStr(TmpStr, "a infligé") <> 0 Then
            TmpPos = InStr(TmpStr, "a infligé")
            If InStr(TmpStr, "Coup critique !") <> 0 Then
                test = TmpStr.Replace(" : Coup critique !", ";").Replace(" a infligé ", ";").Replace(" points de dégâts à ", ";").Replace(" en utilisant ", ";")
                Debug.Print(test)
                result = test.Split(stringSeparators, _
                      StringSplitOptions.RemoveEmptyEntries)
            Else
                test = TmpStr.Replace(" : ", ";").Replace(" a infligé ", ";").Replace(" points de dégâts à ", ";").Replace(" en utilisant ", ";")
                Debug.Print(test)
                result = test.Split(stringSeparators, _
                      StringSplitOptions.RemoveEmptyEntries)
            End If
        End If
        If InStr(TmpStr, "Vous avez gagné") <> 0 Then
            If InStr(TmpStr, "Points abyssaux") <> 0 Then
                test = TmpStr.Replace(" : Vous avez gagné ", ";").Replace(" Points abyssaux.", ";")
                Debug.Print(test)
                result = test.Split(stringSeparators, _
                      StringSplitOptions.RemoveEmptyEntries)
            End If
            If InStr(TmpStr, " Kinah") <> 0 Then
                test = TmpStr.Replace(" : Vous avez gagné ", ";").Replace(" Kinah.", ";")
                Debug.Print(test)
                result = test.Split(stringSeparators, _
                      StringSplitOptions.RemoveEmptyEntries)
            End If
        End If

    End Sub
End Class

